home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / programs.arc / LTEST.PRO < prev    next >
Text File  |  1986-10-07  |  528b  |  22 lines
  1. /* This program requires a EGA or a CGA */
  2.  
  3. Predicates
  4.   demoline
  5.   box_line(Integer,Integer,Integer)
  6.  
  7. Goal graphics(1,7,1),attribute(1),demoline.
  8.  
  9. Clauses
  10.   demoline :- cursor(0,0), write("\t\tLine Test\n\n"),
  11.             box_line(1000,1000,75).
  12.   
  13.   box_line(Lrow,Lcol,N) :-
  14.             N>0,!,
  15.             LLcol2 = Lcol+400, N2 = N-1,
  16.             line(Lrow,Lcol,30000,30000,N),
  17.  
  18.             Lrow2=32000-Lrow,Lcol2=32000-Lcol,
  19.             line(Lrow2,Lcol,Lrow,Lcol2,N),
  20.             box_line(Lrow,LLcol2,N2).
  21.   box_line(_,_,0).
  22.